home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / programme / imagedesk304 / imagedesk / instdata.lha / instdata / rexx / Default.Example.IDesk < prev    next >
Text File  |  1996-04-11  |  663b  |  24 lines
  1. /* ---- standard startup if started via Thumbnail click --------- */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. PARSE ARG iname itype ipos
  6.  
  7. /* -------------------------------------------------------------- */
  8.  
  9. GETTHUMBINFO DESK ipos PICWIDTH
  10. picwidth = RESULT
  11. GETTHUMBINFO DESK ipos PICHEIGHT
  12. picheight = RESULT
  13. GETTHUMBINFO DESK ipos PICDEPTH
  14. picdepth = RESULT
  15.  
  16. IDREQUEST "OK" '"'||,
  17.                     'name:  '||iname||'0A'x||,
  18.                     'type:  '||itype||'0A'x||,
  19.                     'width: '||picwidth||'0A'x||,
  20.                     'height:'||picheight||'0A'x||,
  21.                     'depth: '||picdepth||'0A'x||,
  22.                     'pos:   '||ipos||,
  23.                '"'
  24.